﻿Imports System.ServiceModel.DomainServices.Client.ApplicationServices

Public NotInheritable Class RiaContext
    Inherits WebContextBase

#Region "Extensibility Method Definitions"

    Partial Private Sub OnCreated()
    End Sub

#End Region

    Public Sub New()
        Me.OnCreated()
    End Sub

    Public Shared Shadows ReadOnly Property Current() As RiaContext
        Get
            Return DirectCast((WebContextBase.Current), RiaContext)
        End Get
    End Property

    Public Shadows ReadOnly Property User() As System.Security.Principal.IPrincipal
        Get
            Return MyBase.User
        End Get
    End Property
End Class

